home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)mc.d64 / cinquian.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  146 lines
  1. 11 REM(null)
  2. 49 REM(null)
  3. 99 REM =================================
  4. 100 REM(null)
  5. 102 REM ORIGINAL PROGRAM WRITTEN FOR
  6. 104 REM TRS 80 MODEL 111.
  7. 106 REM(null)
  8. 108 REM CONVERSION AND UPGRADING DONE
  9. 110 REM BY J J URSANO
  10. 112 REM SPRINGDALE PARK ROAD
  11. 113 REM(null)
  12. 114 REM BRACEBRIDGE, ONTARIO (84/04/28)
  13. 115 REM ================================
  14. 119 REM(null)
  15. 120 POKE 53280,8:POKE53281,15:PRINT CHR$(31)
  16. 125 PRINT CHR$(147)
  17. 130 PRINT""
  18. 150 A$="CINQUAIN POETRY"
  19. 159 REM(null)
  20. 160 A$="                                                      "+A$
  21. 165 FOR J=1 TO LEN(A$)
  22. 170 PRINT MID$(A$,LEN(A$)-J+1);"[145]"
  23. 175 FOR ZZ=1 TO 50: NEXT ZZ: NEXT J
  24. 180 FOR DELAY=1 TO 2000:NEXT DELAY
  25. 185 PRINT"":PRINTCHR$(30)
  26. 190 PRINTTAB(16)"BY J URSANO"
  27. 195 FOR DELAY =1 TO 1000: NEXT DELAY
  28. 196 PRINT CHR$(147):PRINTCHR$(129)
  29. 200 REM(null)
  30. 205 POKE53280,8:POKE53281,1:PRINTCHR$(31)
  31. 210 PRINTTAB(6);"A CINQUAIN[146] IS A FIVE LINE POEM."
  32. 211 REM(null)
  33. 220 PRINTTAB(7);"HERE IS ONE ABOUT A COMPUTER."
  34. 230 PRINTTAB(8)"PRESS SPACE BAR[146] TO GO ON."
  35. 240 GET DELAY$:IF DELAY$="" THEN 240
  36. 249 REM(null)
  37. 250 PRINTCHR$(147)
  38. 260 PRINT""
  39. 270 PRINTTAB(16)"COMPUTER"
  40. 274 REM(null)
  41. 275 PRINTTAB(15)"BUSY,FAST"
  42. 280 PRINTTAB(6)"FLASHING,COUNTING,TEACHING"
  43. 290 PRINTTAB(6)"LOVES TO WORK WITH CHILDREN"
  44. 300 PRINTTAB(16)"MACHINE"
  45. 310 PRINTTAB(8)"PRESS SPACE BAR[146] TO GO ON.
  46. 320 [161] DELAY$:[139] DELAY$[178]""[167]320
  47. 330 [153][199](147)
  48. 400 [153][163]2)"NOW I'LL HELP YOU WRITE YOUR OWN POEM!"
  49. 410 [153][163]5)"IT CAN BE ABOUT YOU,A PET,NATURE OR ANYTHING ELSE."
  50. 420 [153][163]5)"WRITING CINQUAINS IS EASY!
  51. 425 REM(null)
  52. 430 PRINTTAB(2)"JUST TYPE IN THE WORDS THAT I ASK FOR."
  53. 440 PRINTTAB(5)"WHEN YOU ARE DONE I WILL PRINT YOUR POEM!"
  54. 450 PRINTTAB(8)"PRESS SPACE BAR[146] TO GO ON."
  55. 460 GET DELAY$:IF DELAY$="" THEN 460
  56. 470 REM
  57. 500 REM **************************
  58. 510 REM(null)
  59. 540 REM
  60. 549 REM (null)
  61. 550 REM LIST OF VARIABLES
  62. 555 REM(null)
  63. 560 REM N1$=FIRST NOUN
  64. 570 REM A1$=FIRST ADJECTIVE
  65. 580 REM A2$=SECOND ADJECTIVE
  66. 590 REM A3$=THIRD ADJECTIVE
  67. 599 REM(null)
  68. 600 REM V1$=THE FIRST 'ING' VERB
  69. 610 REM V2$=THE SECOND'ING' VERB
  70. 620 REM V3$=THE THIRD 'ING' VERB
  71. 630 REM V4$=THE ACTION VERB
  72. 640 REM P$ =THE SHORT PHRASE
  73. 650 REM N2$=THE SECOND NOUN
  74. 660 REM
  75. 700 REM(null)
  76. 800 REM **************************
  77. 805 POKE 53280,7:POKE 53281,1:PRINTCHR$(31) : PRINT CHR$(147)
  78. 810 PRINT"A NOUN IS A PERSON PLACE OR THING."
  79. 820 PRINT"TYPE A NOUN[146].":GOSUB 1150:INPUT N1$
  80. 825 PRINTCHR$(31)
  81. 830 PRINT"ADJECTIVES ARE WORDS THAT DESCRIBE"
  82. 835 PRINT"NOUNS."
  83. 840 PRINT "TYPE AN ADJECTIVE[146] THAT DESCRIBES ";N1$;"."
  84. 850 GOSUB 1150:INPUT A1$
  85. 855 PRINTCHR$(31)
  86. 860 PRINT"TYPE AN OTHER ADJECTIVE[146] THAT DESCRIBES "
  87. 865 PRINT N1$;"."
  88. 870 GOSUB 1150:INPUT A2$
  89. 880 PRINTCHR$(31)
  90. 890 PRINT"TYPE A VERB[146] THAT ENDS IN 'ING' SUCH AS "
  91. 895 PRINT"JUMPING,SINGING AND LAUGHING."
  92. 900 GOSUB 1150:INPUT V1$
  93. 905 PRINTCHR$(31)
  94. 910 PRINT"TYPE ANOTHER VERB[146] THAT ENDS IN 'ING'"
  95. 920 GOSUB 1150:INPUT V2$
  96. 925 PRINTCHR$(31)
  97. 930 PRINT"AND ONE MORE VERB[146] THAT ENDS IN 'ING'"
  98. 935 REM (null)
  99. 940 GOSUB 1150:INPUT V3$
  100. 945 PRINTCHR$(147):PRINT""
  101. 948 PRINTCHR$(31)
  102. 950 PRINT"ACTION VERBS TELL WHAT NOUNS DO."
  103. 960 PRINT"KICKS,DIVES,SLIDES ARE ACTION VERBS."
  104. 970 PRINT"TYPE AN ACTION VERB[146] THAT ENDS IN 'S' AND THAT ";N1$;" CAN DO."
  105. 980 GOSUB 1150:INPUT V4$
  106. 985 PRINTCHR$(31)
  107. 990 PRINT"TYPE A PHRASE[146]THAT STARTS WITH ";V4$
  108. 995 PRINT"AND TELLS ABOUT ";N1$;"."
  109. 1000 GOSUB 1150: INPUT P$
  110. 1005 REM(null)
  111. 1010 PRINT CHR$(31)
  112. 1099 REM(null)
  113. 1100 PRINT"MACHINE IS A NOUN THAT STANDS"
  114. 1105 PRINT"FOR COMPUTER."
  115. 1110 PRINT"TYPE A NOUN[146] THAT STANDS FOR ";N1$;"."
  116. 1120 GOSUB 1150: INPUT N2$ :GOTO 1200
  117. 1150 PRINTCHR$(156):RETURN
  118. 1200 REM
  119. 1210 FOR ZZ=1 TO 1000:NEXT ZZ
  120. 1220 PRINT CHR$(147)
  121. 1300 PRINTTAB(3)"A SPECIAL CINQUAIN ABOUT ";:PRINTCHR$(150) N1$
  122. 1301 REM(null)
  123. 1310 PRINT"":PRINT"[156]"
  124. 1350 PRINTTAB((40-LEN(N1$))/2)N1$
  125. 1360 PRINT""
  126. 1370 PRINTTAB((40-LEN(A1$+A2$))/2)A1$;" ";A2$
  127. 1375 PRINT""
  128. 1380 PRINTTAB((40-LEN(V1$ +V2$+V3$))/2)V1$;" ";V2$;" ";V3$
  129. 1385 PRINT""
  130. 1389 PRINTTAB((40-LEN(P$))/2)P$
  131. 1390 REM PRINTTAB((40-LEN(V4$ +P$))/2)V4$;" ";P$
  132. 1395 PRINT""
  133. 1399 REM (null)
  134. 1400 PRINTTAB((40-LEN(N2$))/2)N2$
  135. 1410 PRINTCHR$(144)
  136. 1499 REM(null)
  137. 1500 PRINT"WOULD YOU LIKE TO WRITE ANOTHER CINQUAIN?(Y/N)": INPUT REPLY$
  138. 1601 REM(null)
  139. 1700 IF LEFT$(REPLY$,1)="Y" THEN800
  140. 1800 PRINTCHR$(147)
  141. 2000 POKE 53280,7:POKE53281,12
  142. 2001 REM(null)
  143. 2100 PRINTTAB(17)"GOOD-BYE!!"
  144. 2150 FOR PAUSE=1TO3500:NEXT PAUSE
  145. 2200 PRINTCHR$(147)
  146.